unit MGlobal;

interface
uses
  DbHelper,IdPOP3,ExtCtrls,IdMessage,classes;
type
  TReceiveMsgEvent=procedure(zh:string;var idmsg:TIdMessage) of object;
  TReceiveRawEvent=procedure(zh:string;uid:string;stream:TStream) of object;
  TReceiveMsgProgressEvent=procedure(index,count:Integer) of object;
  //TReceiveEndEvent=procedure (index:Integer)of object;
  PZHFolderParamRecord=^TZHFolderParamRecord;
  TZHFolderParamRecord=record
   
    ZH:string;
    FolderID:integer;
    FolerType:Integer;
  end;
  PColParamRecord=^TColParamRecord;
  TColParamRecord=record
    caption:string;
    field:string;
    width:integer;
    imgindex:integer;
  end;
var
  sysdb:TDbHelper;

implementation

end.
